;Detectores para el problema de las lentes
(defparameter *entorno* 
  (list
   (list "joven" "miope" "no" "reducida" "ninguna") 
   (list "joven" "miope" "no" "normal" "blanda") 
   (list "joven" "miope" "si" "reducida" "ninguna") 
   (list "joven" "miope" "si" "normal" "rigida") 
   (list "joven" "hipermetrope" "no" "reducida" "ninguna") 
   (list "joven" "hipermetrope" "no" "normal" "blanda") 
   (list "joven" "hipermetrope" "si" "reducida" "ninguna") 
   (list "joven" "hipermetrope" "si" "normal" "rigida") 
   (list "prepresbicia" "miope" "no" "reducida" "ninguna") 
   (list "prepresbicia" "miope" "no" "normal" "blanda") 
   (list "prepresbicia" "miope" "si" "reducida" "ninguna") 
   (list "prepresbicia" "miope" "si" "normal" "rigida") 
   (list "prepresbicia" "hipermetrope" "no" "reducida" "ninguna") 
   (list "prepresbicia" "hipermetrope" "no" "normal" "blanda") 
   (list "prepresbicia" "hipermetrope" "si" "reducida" "ninguna")
   (list "prepresbicia" "hipermetrope" "si" "normal" "ninguna")
   (list "presbicia" "miope" "no" "reducida" "ninguna")
   (list "presbicia" "miope" "no" "normal" "ninguna")
   (list "presbicia" "miope" "si" "reducida" "ninguna")
   (list "presbicia" "miope" "si" "normal" "rigida")
   (list "presbicia" "hipermetrope" "no" "reducida" "ninguna")
   (list "presbicia" "hipermetrope" "no" "normal" "blanda")
   (list "presbicia" "hipermetrope" "si" "reducida" "ninguna")
   (list "presbicia" "hipermetrope" "si" "normal" "ninguna")
   )
  )